home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / php / pear / docs / radius / examples / .tmpradius-auth.php < prev   
PHP Script  |  2004-03-24  |  13KB  |  390 lines
  1. <?php
  2. /*
  3. Copyright (c) 2003, Michael Bretterklieber <michael@bretterklieber.com>
  4. All rights reserved.
  5.  
  6. Redistribution and use in source and binary forms, with or without 
  7. modification, are permitted provided that the following conditions 
  8. are met:
  9.  
  10. 1. Redistributions of source code must retain the above copyright 
  11.    notice, this list of conditions and the following disclaimer.
  12. 2. Redistributions in binary form must reproduce the above copyright 
  13.    notice, this list of conditions and the following disclaimer in the 
  14.    documentation and/or other materials provided with the distribution.
  15. 3. The names of the authors may not be used to endorse or promote products 
  16.    derived from this software without specific prior written permission.
  17.  
  18. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 
  19. ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
  20. WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 
  21. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 
  22. INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 
  23. BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
  24. DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY 
  25. OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
  26. NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, 
  27. EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28.  
  29. This code cannot simply be copied and put under the GNU Public License or 
  30. any other GPL-like (LGPL, GPL2) License.
  31.  
  32.     $Id: radius-auth.php,v 1.2 2003/01/26 20:31:11 mbretter Exp $
  33. */
  34.  
  35. if(!extension_loaded('radius')) {
  36.  
  37.     if (preg_match('/windows/i', getenv('OS'))) {
  38.         dl('php_radius.dll');
  39.     } else {
  40.         dl('radius.so');
  41.     }
  42.  
  43. }
  44.  
  45. $module = 'radius';
  46. $functions = get_extension_funcs($module);
  47. echo "Functions available in the test extension:<br>\n";
  48. foreach($functions as $func) echo $func . "<br>\n";
  49.  
  50. $username = 'sepp';
  51. $password = 'sepp';
  52. $radserver = 'localhost';
  53. //$radserver = 'carlo.jawa.at';
  54. $radport = 1812;
  55. $sharedsecret = 'testing123';
  56. //$auth_type = 'pap';
  57. //$auth_type = 'chap';
  58. //$auth_type = 'mschapv1';
  59. $auth_type = 'mschapv2';
  60.  
  61. $res = radius_auth_open();
  62. echo "$res<br>\n";
  63.  
  64. //if (!radius_config($res, '/etc/radius.conf')) {
  65. /*if (!radius_config($res, 'D:/php-devel/pear/PECL/radius/radius.conf')) {
  66.  echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  67.  exit;
  68. }*/
  69.  
  70.  
  71. if (!radius_add_server($res, $radserver, $radport, $sharedsecret, 3, 3)) {
  72.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  73.     exit;
  74. }
  75.  
  76. if (!radius_add_server($res, $radserver, $radport, 'testing123', 3, 3)) {
  77.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  78.     exit;
  79. }
  80.  
  81. if (!radius_create_request($res, RADIUS_ACCESS_REQUEST)) {
  82.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  83.     exit;
  84. }
  85.  
  86. if (!radius_put_string($res, RADIUS_NAS_IDENTIFIER, isset($HTTP_HOST) ? $HTTP_HOST : 'localhost'))  {
  87.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  88.     exit;
  89. }
  90.  
  91. if (!radius_put_int($res, RADIUS_SERVICE_TYPE, RADIUS_FRAMED)) {
  92.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  93.     exit;
  94. }
  95.   
  96. if (!radius_put_int($res, RADIUS_FRAMED_PROTOCOL, RADIUS_PPP)) {
  97.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  98.     exit;
  99. }
  100.  
  101. if (!radius_put_string($res, RADIUS_CALLING_STATION_ID, isset($REMOTE_HOST) ? $REMOTE_HOST : '127.0.0.1') == -1) {
  102.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  103.     exit;
  104. }
  105.  
  106. if (!radius_put_string($res, RADIUS_USER_NAME, $username)) {
  107.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  108.     exit;
  109. }
  110.  
  111. if ($auth_type == 'chap') {
  112.     echo "CHAP<br>\n";
  113.  
  114.     /* generate Challenge */
  115.     mt_srand(time());
  116.     $chall = mt_rand();
  117.  
  118.     // FYI: CHAP = md5(ident + plaintextpass + challenge)
  119.     $chapval = pack('H*', md5(pack('Ca*',1 , $password . $chall)));
  120. //    $chapval = md5(pack('Ca*',1 , $password . $chall));
  121.     // Radius wants the CHAP Ident in the first byte of the CHAP-Password
  122.     $pass = pack('C', 1) . $chapval;
  123.  
  124.     if (!radius_put_attr($res, RADIUS_CHAP_PASSWORD, $pass)) {
  125.         echo 'RadiusError: RADIUS_CHAP_PASSWORD:' . radius_strerror($res). "<br>\n";
  126.         exit;
  127.     }
  128.  
  129.     if (!radius_put_attr($res, RADIUS_CHAP_CHALLENGE, $chall)) {
  130.         echo 'RadiusError: RADIUS_CHAP_CHALLENGE:' . radius_strerror($res). "<br>\n";
  131.         exit;
  132.     }
  133.  
  134. }  else if ($auth_type == 'mschapv1') {
  135.     echo "MS-CHAPv1<br>\n";
  136.     include_once('mschap.php');
  137.  
  138.     $challenge = GenerateChallenge();
  139.     printf ("Challenge:%s\n", bin2hex($challenge));
  140.  
  141.     if (!radius_put_vendor_attr($res, RADIUS_VENDOR_MICROSOFT, RADIUS_MICROSOFT_MS_CHAP_CHALLENGE, $challenge)) {
  142.         echo 'RadiusError: RADIUS_MICROSOFT_MS_CHAP_CHALLENGE:' . radius_strerror($res). "<br>\n";
  143.         exit;
  144.     }
  145.  
  146.     $ntresp = ChallengeResponse($challenge, NtPasswordHash($password));
  147.     $lmresp = str_repeat ("\0", 24);
  148.  
  149.     printf ("NT Response:%s\n", bin2hex($ntresp));
  150.     // Response: chapid, flags (1 = use NT Response), LM Response, NT Response
  151.     $resp = pack('CCa48',1 , 1, $lmresp . $ntresp);
  152.     printf ("Response:%d %s\n", strlen($resp), bin2hex($resp));
  153.  
  154.     if (!radius_put_vendor_attr($res, RADIUS_VENDOR_MICROSOFT, RADIUS_MICROSOFT_MS_CHAP_RESPONSE, $resp)) {
  155.         echo 'RadiusError: RADIUS_MICROSOFT_MS_CHAP_RESPONSE:' . radius_strerror($res). "<br>\n";
  156.         exit;
  157.     }
  158.  
  159. } else if ($auth_type == 'mschapv2') {
  160.     echo "MS-CHAPv2<br>\n";
  161.     include_once('mschap.php');
  162.  
  163.     $authChallenge = GenerateChallenge(16);
  164.     printf ("Auth Challenge:%s\n", bin2hex($authChallenge));
  165.  
  166.     if (!radius_put_vendor_attr($res, RADIUS_VENDOR_MICROSOFT, RADIUS_MICROSOFT_MS_CHAP_CHALLENGE, $authChallenge)) {
  167.         echo 'RadiusError: RADIUS_MICROSOFT_MS_CHAP_CHALLENGE:' . radius_strerror($res). "<br>\n";
  168.         exit;
  169.     }
  170.  
  171.     // we have no client, therefore we generate the Peer-Challenge
  172.     $peerChallenge = GeneratePeerChallenge();
  173.     printf ("Peer Challenge:%s\n", bin2hex($peerChallenge));
  174.  
  175.     $ntresp = GenerateNTResponse($authChallenge, $peerChallenge, $username, $password);
  176.     $reserved = str_repeat ("\0", 8);
  177.  
  178.     printf ("NT Response:%s\n", bin2hex($ntresp));
  179.     // Response: chapid, flags (1 = use NT Response), Peer challenge, reserved, Response
  180.     $resp = pack('CCa16a8a24',1 , 1, $peerChallenge, $reserved, $ntresp);
  181.     printf ("Response:%d %s\n", strlen($resp), bin2hex($resp));
  182.  
  183.     if (!radius_put_vendor_attr($res, RADIUS_VENDOR_MICROSOFT, RADIUS_MICROSOFT_MS_CHAP2_RESPONSE, $resp)) {
  184.         echo 'RadiusError: RADIUS_MICROSOFT_MS_CHAP2_RESPONSE:' . radius_strerror($res). "<br>\n";
  185.         exit;
  186.     }
  187.  
  188. } else {
  189.     echo "PAP<br>\n";
  190.  
  191.     if (!radius_put_string($res, RADIUS_USER_PASSWORD, "sepp")) {
  192.         echo 'RadiusError:' . radius_strerror($res). "<br>\n";
  193.         exit;
  194.     }
  195. }
  196.  
  197. if (!radius_put_int($res, RADIUS_SERVICE_TYPE, RADIUS_FRAMED)) {
  198.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  199.     exit;
  200. }
  201.  
  202. if (!radius_put_int($res, RADIUS_FRAMED_PROTOCOL, RADIUS_PPP)) {
  203.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  204.     exit;
  205. }
  206.  
  207. $req = radius_send_request($res);
  208. if (!$req) {
  209.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  210.     exit;
  211. }
  212.  
  213. switch($req) {
  214. case RADIUS_ACCESS_ACCEPT:
  215.         echo "Radius Request accepted<br>\n";
  216.     break;
  217.  
  218. case RADIUS_ACCESS_REJECT:
  219.     echo "Radius Request rejected<br>\n";
  220.     break;
  221.  
  222. default:
  223.     echo "Unexpected return value:$req\n<br>";
  224. }
  225.  
  226. while ($resa = radius_get_attr($res)) {
  227.  
  228.     if (!is_array($resa)) {
  229.         printf ("Error getting attribute: %s\n",  radius_strerror($res));
  230.         exit;
  231.     }
  232.  
  233.     $attr = $resa['attr'];
  234.     $data = $resa['data'];
  235.     //printf("Got Attr:%d %d Bytes %s\n", $attr, strlen($data), bin2hex($data));
  236.  
  237.     switch ($attr) {
  238.  
  239.     case RADIUS_FRAMED_IP_ADDRESS:
  240.         $ip = radius_cvt_addr($data);
  241.         echo "IP: $ip<br>\n";
  242.         break;
  243.  
  244.     case RADIUS_FRAMED_IP_NETMASK:
  245.         $mask = radius_cvt_addr($data);
  246.         echo "MASK: $mask<br>\n";
  247.         break;
  248.  
  249.     case RADIUS_FRAMED_MTU:
  250.         $mtu = radius_cvt_int($data);
  251.         echo "MTU: $mtu<br>\n";
  252.         break;
  253.  
  254.     case RADIUS_FRAMED_COMPRESSION:
  255.         $comp = radius_cvt_int($data);
  256.         echo "Compression: $comp<br>\n";
  257.         break;
  258.  
  259.     case RADIUS_SESSION_TIMEOUT:
  260.         $time = radius_cvt_int($data);
  261.         echo "Session timeout: $time<br>\n";
  262.         ini_set('max_execution_time', $time);
  263.         break;
  264.  
  265.     case RADIUS_IDLE_TIMEOUT:
  266.         $idletime = radius_cvt_int($data);
  267.         echo "Idle timeout: $idletime<br>\n";
  268.         break;
  269.  
  270.     case RADIUS_SERVICE_TYPE:
  271.         $type = radius_cvt_int($data);
  272.         echo "Service Type: $type<br>\n";
  273.         break;
  274.  
  275.     case RADIUS_CLASS:
  276.         $class = radius_cvt_int($data);
  277.         echo "Class: $class<br>\n";
  278.         break;
  279.  
  280.     case RADIUS_FRAMED_PROTOCOL:
  281.         $proto = radius_cvt_int($data);
  282.         echo "Protocol: $proto<br>\n";
  283.         break;
  284.  
  285.     case RADIUS_FRAMED_ROUTING:
  286.         $rout = radius_cvt_int($data);
  287.         echo "Routing: $rout<br>\n";
  288.         break;
  289.  
  290.     case RADIUS_FILTER_ID:
  291.         $id = radius_cvt_string($data);
  292.         echo "Filter ID: $id<br>\n";
  293.         break;
  294.  
  295.     case RADIUS_VENDOR_SPECIFIC:
  296.         //printf ("Vendor specific (%d)<br>\n", $attr);
  297.  
  298.         $resv = radius_get_vendor_attr($data);
  299.         if (is_array($resv)) {
  300.             $vendor = $resv['vendor'];
  301.             $attrv = $resv['attr'];
  302.             $datav = $resv['data'];
  303.  
  304.             if ($vendor == RADIUS_VENDOR_MICROSOFT) {
  305.  
  306.                 switch ($attrv) {
  307.  
  308.                 case RADIUS_MICROSOFT_MS_CHAP2_SUCCESS:
  309.                     $mschap2resp = radius_cvt_string($datav);
  310.                     printf ("MS CHAPv2 success: %s<br>\n", $mschap2resp);                    
  311.                     break;
  312.  
  313.                 case RADIUS_MICROSOFT_MS_CHAP_ERROR:
  314.                     $errormsg = radius_cvt_string(substr($datav,1));
  315.                     echo "MS CHAP Error: $errormsg<br>\n";
  316.                     break;
  317.  
  318.                 case RADIUS_MICROSOFT_MS_CHAP_DOMAIN:
  319.                     $domain = radius_cvt_string($datav);
  320.                     echo "MS CHAP Domain: $domain<br>\n";
  321.                     break;
  322.  
  323.                 case RADIUS_MICROSOFT_MS_MPPE_ENCRYPTION_POLICY:
  324.                     $policy = radius_cvt_int($datav);
  325.                     echo "MS MPPE Policy: $policy<br>\n";
  326.                     break;
  327.  
  328.                 case RADIUS_MICROSOFT_MS_MPPE_ENCRYPTION_TYPES:
  329.                     $type = radius_cvt_int($datav);
  330.                     echo "MS MPPE Type: $type<br>\n";
  331.                     break;
  332.  
  333.                 case RADIUS_MICROSOFT_MS_CHAP_MPPE_KEYS:
  334.                     $demangled = radius_demangle($res, $datav);
  335.                     $lmkey = substr($demangled, 0, 8);
  336.                     $ntkey = substr($demangled, 8, RADIUS_MPPE_KEY_LEN);
  337.                     printf ("MS MPPE Keys: LM-Key: %s NT-Key: %s<br>\n", bin2hex($lmkey), bin2hex($ntkey));
  338.                     break;
  339.  
  340.                 case RADIUS_MICROSOFT_MS_MPPE_SEND_KEY:
  341.                     $demangled = radius_demangle_mppe_key($res, $datav);
  342.                     printf ("MS MPPE Send Key: %s<br>\n", bin2hex($demangled));
  343.                     break;
  344.  
  345.                 case RADIUS_MICROSOFT_MS_MPPE_RECV_KEY:
  346.                     $demangled = radius_demangle_mppe_key($res, $datav);
  347.                     printf ("MS MPPE Send Key: %s<br>\n", bin2hex($demangled));
  348.                     break;
  349.  
  350.                 case RADIUS_MICROSOFT_MS_PRIMARY_DNS_SERVER:
  351.                     $server = radius_cvt_string($datav);
  352.                     printf ("MS Primary DNS Server: %s<br>\n", $server);
  353.                     break;
  354.  
  355.                 default:
  356.                     printf("Unexpected Microsoft attribute: %d<br>\n", $attrv);
  357.                 }
  358.  
  359.             }
  360.  
  361.         } else {
  362.             printf ("Error getting Vendor attribute %s<br>\n", radius_strerror($res));
  363.         }
  364.         break;
  365.  
  366.     default:
  367.         printf("Unexpected attribute: %d<br>\n", $attr);
  368.     }
  369. }
  370.  
  371. $secret = radius_server_secret($res);
  372. if (!$secret) {
  373.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  374.     exit;
  375. } else {
  376.     echo "Shared Secret:$secret<br>\n";
  377. }
  378.  
  379. $authent = radius_request_authenticator($res);
  380. if (!$authent) {
  381.     echo 'RadiusError:' . radius_strerror($res). "\n<br>";
  382.     exit;
  383. } else {
  384.     printf ("Request Authenticator:%s Len:%d<br>\n", bin2hex($authent), strlen($authent));
  385. }
  386.  
  387. radius_close($res);
  388.  
  389. ?>
  390.